home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 25
/
Cream of the Crop 25.iso
/
bbs
/
pcsuni1.zip
/
VRS502.ZIP
/
VRS-M98.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1997-04-06
|
12KB
|
425 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
;------------------------------------------------------------------------------
Goto LABEL001
End
If (0 == 0) STRING002 = "NO"
If (0 == 1) STRING002 = "YES"
EndFunc
:LABEL001
INTEGER003 = Date()
STRING008 = Random(99999999)
STRING008 = STRING008 + "00000000"
STRING008 = Left(STRING008, 8)
STRING004 = "@X09Φ@X89@X0F"
STRING005 = "@X0AΩ@X8A@X0F"
STRING003 = "@X01≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
Cls
PrintLn
PrintLn "@X0A Below us is the planet Xanadu. The magnetosphere of the @X07"
PrintLn "@X0A planet prevents us from using standard communications procedures. @X07"
PrintLn "@X0A Once you're down, you're on your own - a S&R beacon has been fitted @X07"
PrintLn "@X0A into your weapons pod. Key it ONLY on completion of your mission, @X07"
PrintLn "@X0A and we'll get a retrieval boat down to you. @X07"
PrintLn
PrintLn "@X0A We've dropped several divisions on this supposedly uninhabited @X07"
PrintLn "@X0A planet, and have only managed to retrieve a few badly incoherent soldiers@X07"
PrintLn "@X0A from the surface. They were all victims of a low-grade viral infection @X07"
PrintLn "@X0A that causes progressive brain damage. You'll be inoculated against the @X07"
PrintLn "@X0A virus before you drop, but Medical isn't sure how long the inoculation @X07"
PrintLn "@X0A will last against repeated exposure to the virus. @X07"
PrintLn
Call PPEPath() + "VRS-M19.PPE"
Cls
PrintLn
PrintLn "@X0E Xanadu: @X07"
PrintLn
PrintLn "@X0E Rotational Period: @X07 @X0C 25.61 E-Hours @X07"
PrintLn "@X0E Average daytime temperature: @X07 @X0C -70°C @X07"
PrintLn "@X0E Average nighttime temperature: @X07 @X0C -160°C @X07"
PrintLn "@X0E Average wind velocity: @X07 @X0C 145KPH @X07"
PrintLn
PrintLn "@X0A That's all we've got. The screwy magnetosphere of the planet@X07"
PrintLn "@X0A prevents us from getting any more detail of the planet. Your report @X07"
PrintLn "@X0A on your return will aid us in this as well. @X07"
PrintLn
Call PPEPath() + "VRS-M19.PPE"
Cls
PrintLn
PrintLn "@X0A You'll be dropping with a full kit weapons and armor pod, as we@X07"
PrintLn "@X0A have literally no idea what you'll be facing. @X07"
PrintLn
PrintLn "@X0B Find our lost troops! If they're dead, we'll want to know why.@X07"
PrintLn "@X0B If they are alive, we want them back! @X07"
PrintLn
PrintLn
PrintLn
PrintLn "@X0D Preparing yourself for this challenge, you give your powered @X07"
PrintLn "@X0D armor a final check and bolt it into your weapons pod along with all @X07"
PrintLn "@X0D the other tools of mass mayhem provided to you by the Imperium. @X07"
PrintLn
PrintLn "@X0D Changing into a Pod Survival Suit, you strap yourself into your @X07"
PrintLn "@X0D personnel pod. You feel a @X0CTHUMP!@X0D as the pods are fired from the ship, @X07"
PrintLn "@X0D and watch your descent to the planet in your pod tracking screen... @X07"
Newlines 3
Call PPEPath() + "VRS-M19.PPE"
If (AnsiOn()) Then
Cls
StartDisp 1
PrintLn " @X07 ╔═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╤═╗@X0F"
PrintLn " @X07 ╟─@X0EDrop Capsule Tracking @X07┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
PrintLn " @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
PrintLn " @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
PrintLn " @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┴─┴─┴─┴─┴─┴─┴─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
PrintLn " @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┤@X0DPOD SEPARATION @X8E@X07├─┼─┼─┼─┼─┼─┼─╢@X0F"
PrintLn " @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┬─┬─┬─┬─┬─┬─┬─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
PrintLn " @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
PrintLn " @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
PrintLn " @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
PrintLn " @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
PrintLn " @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
PrintLn " @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
PrintLn " @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
PrintLn " @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
PrintLn " @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
PrintLn " @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
PrintLn " @X07 ╟─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─╢@X0F"
PrintLn " @X07 ╟─┼─┼─┴─┴─┴─┴─┴─┴─┴─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┴─┴─┴─┴─┴─┴─┴─┴─┴─┼─╢@X0F"
PrintLn " @X07 ╚═╧═╛@X09Φ@X89@X99@X0F = @X09Weapons Pod@X07╘═╧═╧═╧═╧═╧═╧═╧═╧═╧═╧═╛ @X0AΩ@X8A@X0F = @X0APersonnel Pod @X07╘═╝@X0F"
AnsiPos 21, 4
Print STRING004
AnsiPos 23, 3
Print STRING005
Delay 10
AnsiPos 20, 5
Print STRING004
AnsiPos 24, 4
Print STRING005
Delay 10
AnsiPos 47, 4
PrintLn "@X0CWARNING!@X8C@X0F"
AnsiPos 19, 6
Print STRING004
AnsiPos 25, 5
Print STRING005
Delay 10
AnsiPos 18, 7
Print STRING004
AnsiPos 26, 6
Print STRING005
Delay 10
AnsiPos 19, 8
Print STRING004
Delay 10
AnsiPos 20, 9
Print STRING004
AnsiPos 29, 7
Print STRING005
Delay 10
AnsiPos 21, 10
Print STRING004
AnsiPos 30, 8
Print STRING005
Delay 10
AnsiPos 22, 11
Print STRING004
AnsiPos 31, 9
Print STRING005
Delay 10
AnsiPos 23, 12
Print STRING004
AnsiPos 33, 10
Print STRING005
Delay 10
AnsiPos 24, 13
Print STRING004
AnsiPos 35, 11
Print STRING005
Delay 10
AnsiPos 25, 14
Print STRING004
AnsiPos 37, 12
Print STRING005
Delay 10
AnsiPos 26, 15
Print STRING004
AnsiPos 38, 13
Print STRING005
Delay 10
AnsiPos 47, 8
PrintLn "@X0CWARNING!@X8C@X0F"
AnsiPos 26, 16
Print STRING004
AnsiPos 41, 14
Print STRING005
Delay 10
AnsiPos 24, 17
Print STRING004
AnsiPos 43, 15
Print STRING005
Delay 10
AnsiPos 45, 16
Print STRING005
Delay 10
AnsiPos 46, 17
Print STRING005
Delay 10
AnsiPos 48, 18
Print STRING005
Delay 10
AnsiPos 0, 18
PrintLn " @X07╟─┼─┼─┼─┼─┼─┼─@X8C█@X0F─@X0CDESTROYED!@X8C@X07┼─┼─┼─┼─┼─┼─┼─@X8E█@X0F─@X0EDAMAGED!@X8E@X07┼─┼─┼─┼─┼─┼─┼─╢@X0F"
PrintLn " @X07╟─┼─┼─┴─┴─┴─┴─┴─┴─┴─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┴─┴─┴─┴─┴─┴─┴─┴─┴─┼─╢@X0F"
PrintLn " @X07╚═╧═╛@X09Φ@X89@X99@X0F = @X09Weapons Pod@X07╘═╧═╧═╧═╧═╧═╧═╧═╧═╧═╧═╛ @X0AΩ@X8A@X0F = @X0APersonnel Pod @X07╘═╝@X0F"
Delay (5 * 182) / 10
Cls
Newlines 2
Endif
DOpen 3, PPEPath() + "VRS.DBF", 0
DTop 3
DGet 3, "R_BATS", INTEGER001
DGet 3, "PL_BATS", INTEGER002
DCloseAll
Newlines 3
PrintLn "@X0EAs usual for single drops, you landed on Xanadu and your support pod landed in@X0F"
PrintLn "@X0Ean ocean. Luckily for you, there is an outpost sign within sight.@X0F"
PrintLn "@X0EUnluckily for you, you only have a hundred credits in your pockets, and Xanadu@X0F"
PrintLn "@X0Eisn't a very friendly planet.@X0F"
PrintLn
PrintLn "@X0ESeeing that you have a choice between freezing to death on this average balmy@X0F "
PrintLn "@X0Eday on Xanadu (following standard planet name convention, -70°C is considered @X0F"
PrintLn "@X0Ebalmy) or heading into the outpost, you decide to take your chances with the @X0F "
PrintLn "@X0Elocals. At the door, you find an extremely ugly specimen of a guard...@X0F"
DOpen 0, PPEPath() + "USER.DBF", 0
Delete PPEPath() + "NHAND.NDX"
DnCreate 0, PPEPath() + "NHAND.NDX", "HANDLE"
:LABEL002
KeyFlush
Backup 80
ClrEol
Newlines 2
InputStr "@X0AWhat's your handle Soldier@X0F _", STRING006, 11, 25, Mask_Ascii(), 0 + 8
If (STRING006 == "QUIT") End
If (STRING006 == "") Then
Backup 80
ClrEol
Goto LABEL002
Endif
STRING006 = Trim(STRING006, " ")
DSeek 0, STRING006
If (DChkStat(0) == 0) Then
Backup 80
ClrEol
Print "@X0CWe've already got a@X0E ", Mixed(STRING006), "@X0C here. Call yourself something else@X0F"
Delay (2 * 182) / 10
Goto LABEL002
Endif
Backup 80
ClrEol
Print "@X0B", Mixed(STRING006), "@X0A, sounds funny to me, but do you like it? @X02(@X0EY@X02/@X0EN@X02) "
InputStr "_", STRING011, 11, 1, "YN", 0 + 8
If (STRING011 == "N") Then
Backup 80
ClrEol
Goto LABEL002
Endif
Newlines 2
InputStr "@X0AAre you a @X0E(@X0CM@X0E)@X0Aale or @X0E(@X0CF@X0E)@X0Aemale _", STRING007, 14, 1, "MFmf", 0 + 8 + 64
Newlines 1
If (STRING007 == "M") PrintLn "@X09IF A WOMAN EVER BEATS YOU IN BATTLE, YOU DESERVED IT.@X0F"
If (STRING007 == "F") PrintLn "@X09IF A MAN EVER BEATS YOU IN BATTLE, YOU DESERVED IT.@X0F"
Newlines 1
PrintLn "@X0EThe door guard suddenly grabs you by the arm, you are about to put up a fight@X0F"
PrintLn "@X0Ewhen he pushes your arm under the ID scanner. A rusty, machine voice grinds@X0F"
PrintLn "@X0Eto life and burps up some data about you...@X0F"
Newline
PrintLn "@X0AO.K.@X0E ", Mixed(STRING006), " @X0Ayour records are being downloaded from your ID chip..."
Newline
GetUser
If (Len(U_BDPhone) > 6) Then
STRING010 = Strip(U_BDPhone, " ")
STRING010 = Strip(STRING010, "(")
STRING010 = Replace(STRING010, ")", ".")
STRING010 = Replace(STRING010, "-", ".")
Goto LABEL003
ElseIf (Len(U_HVPhone) > 6) Then
STRING010 = Strip(U_HVPhone, " ")
STRING010 = Strip(STRING010, "(")
STRING010 = Replace(STRING010, ")", ".")
STRING010 = Replace(STRING010, "-", ".")
Goto LABEL003
Else
STRING010 = String(Random(9999)) + "." + String(Random(9999)) + "." + String(Random(99999))
Endif
:LABEL003
PrintLn "@X0EYou notice in the data stream flowing past your eyes your Marine I.D. Code,@X0F"
PrintLn "@X0Ethe number @X0A" + STRING010 + "@X0E would catch your eye anywhere, you wonder what@X0F"
PrintLn "@X0Eelse they know about you...@X0F"
Delay (2 * 182) / 10
STRING012 = "@CITY@@DATAPHONE@@FIRST@@HOMEPHONE@@SECURITY@" + U_Ver + U_City + U_Addr(0) + U_Addr(1) + U_Addr(2) + U_Addr(3) + U_Addr(4) + U_Addr(5)
PrintLn STRING012
DCloseAll
Delay (2 * 182) / 10
Delete PPEPath() + "NHAND.NDX"
DOpen 0, PPEPath() + "USER.DBF", 0
DPack 0
DAppend 0
DCloseAll
DOpen 0, PPEPath() + "USER.DBF", 0
DOpen 1, PPEPath() + "USER.DBF", 0
DTop 0
DBottom 1
For INTEGER004 = 1 To DFields(0)
STRING009 = DName(0, INTEGER004)
DFCopy 1, STRING009, 0, STRING009
If (INTEGER004 == 10) Print "@X0CConnecting to CommLink...@X0F"
If (INTEGER004 == 20) Print " @X0ENegotiating Handshake...@X0F"
If (INTEGER004 == 30) Print " @X0BΓ▌#!$%ß Argh! Line noise!@X0F"
Next
DPut 1, "HANDLE", STRING006
DPut 1, "SEX", STRING007
DPut 1, "NAME", U_Name()
DPut 1, "L_DATE", String(INTEGER003)
DPut 1, "FILE_NUM", STRING008
FAppend 1, PPEPath() + "DAILY.NWS", 2, 0
FPutLn 1, "@X0A" + Mixed(STRING006) + " JOINED THE FRAY!@X0F"
FPutLn 1, "@X01≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
FClose 1
FAppend 1, PPEPath() + STRING008 + ".MSG", 2, 0
FPutLn 1, "@X0A" + String(Date()) + " " + "From @X0E:@X0CVRS Central"
FPutLn 1, "@X0EWelcome aboard " + Mixed(STRING006) + "! Beware of Felix!@X0F"
FPutLn 1, STRING003
FClose 1
DCloseAll
Delete PPEPath() + "NHAND.NDX"
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 3 End
; 5 Cls
; 5 ClrEol
; 16 Goto
; 23 Let
; 35 Print
; 86 PrintLn
; 15 If
; 2 FAppend
; 2 FClose
; 5 FPutLn
; 1 StartDisp
; 1 GetUser
; 3 Delete
; 3 InputStr
; 21 Delay
; 2 Newline
; 7 Newlines
; 3 Call
; 33 AnsiPos
; 5 Backup
; 1 KeyFlush
; 1 EndFunc
; 5 DOpen
; 1 DPack
; 4 DCloseAll
; 1 DnCreate
; 1 DAppend
; 2 DTop
; 1 DBottom
; 1 DSeek
; 2 DGet
; 5 DPut
; 1 DFCopy
;
;
; ■ Functions used :
;
; 4 *
; 4 /
; 42 +
; 11 ==
; 1 <
; 1 <=
; 2 >
; 2 >=
; 7 !
; 2 &&
; 1 ||
; 2 Len(
; 1 Left()
; 1 Trim()
; 4 Random()
; 2 Date()
; 1 U_Name()
; 4 Replace()
; 4 Strip()
; 5 String()
; 1 Mask_Ascii()
; 14 PPEPath()
; 1 AnsiOn()
; 5 Mixed()
; 2 DFields()
; 1 DName()
; 1 DChkStat()
;
;------------------------------------------------------------------------------
;
; Analysis flags : C
;
; C - Call child PPE ■ 3
; This is usually normal, but may be a tricky way to launch some
; sysop-only commands.
; ■ Search for : CALL
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 0 While/EndWhile
; 6 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------